Objects: paintObject "Down", paintObject "Up", Field "Caption Up", Field "Caption Down"
Action: On buttondown, this object sinks as if it was pressed. Then on buttonUp it returns to the raised position and sends the text of field caption as a message to its parent.
Buttonsseck Boxes
3D Paint Button
FALSE
ObjectCaption
String
buttonDown
buttonUp
ObjectCaption
buttonDown
buttonUp
send
to parent of self
ObjectCaption
string
string
String
ObjectCaption
:PHYSSIZE
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
:PHYSSIZE
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp
caption up
Caption
caption down
Caption
3D Objects Button
FALSE
ObjectCaption
String
buttonDown
buttonUp
ObjectCaption
buttonDown
buttonUp
send
to parent of self
ObjectCaption
string
string
String
Caption Up
Caption Down
Name: 3D Object Button
Objects: group "Down", group "Up", Field "Caption Up", Field "Caption Down"
Action: On buttondown, this object sinks as if it was pressed. Then on buttonUp it returns to the raised position and sends the text of field caption as a message to its parent.
Properties: There are two special properties of this object. ObjectChecked can be set or got to determine the checked stauts of this button.
ObjectCaption can be set to change the caption of this object.
cts parent.
p "Lowered Dot" to this objects parent.
Name: 3D Radio Button
Objects: group "Raised Dot", group "Lowered Dot", Field "Caption"on"
Name: Fill Radio Button
Objects: group "Lowered Dot", ellipse "Dot", Field "Caption"tion""
checkObject
ZObjList,CurrentObj
Objectchecked
buttonUp
buttonUp
Objectchecked
Objectchecked
ObjList
CurrentObj
checkObject
Fill Radio Button
ObjectChecked
value
ObjectCaption
String
ObjectChecked
Checked
ObjectChecked
ObjectCaption
ObjectChecked
value
ObjectChecked
ObjectCaption
string
String
Lowered Dot
Caption
Caption 1
Fill Radio Button
ObjectChecked
value
ObjectCaption
String
ObjectChecked
Checked
ObjectChecked
ObjectCaption
ObjectChecked
value
ObjectChecked
ObjectCaption
string
String
Lowered Dot
Caption
Caption 2
Fill Radio Button
ObjectChecked
value
ObjectCaption
String
ObjectChecked
Checked
ObjectChecked
ObjectCaption
ObjectChecked
value
ObjectChecked
ObjectCaption
string
String
Lowered Dot
Caption
Caption 3
Objectchecked
false
Objectchecked
false
checkObject
ZObjList,CurrentObj
Objectchecked
buttonUp
buttonUp
Objectchecked
Objectchecked
ObjList
CurrentObj
checkObject
Objectchecked
false
ObjectChecked
value
ObjectCaption
String
ObjectChecked
Checked
ObjectChecked
ObjectCaption
ObjectChecked
value
ObjectChecked
ObjectCaption
string
String
Raised Dot
Lowered Dot
Caption
Caption 1
ObjectChecked
value
ObjectCaption
String
ObjectChecked
Checked
ObjectChecked
ObjectCaption
ObjectChecked
value
ObjectChecked
ObjectCaption
string
String
Raised Dot
Lowered Dot
Caption
Caption 2
ObjectChecked
value
ObjectCaption
String
ObjectChecked
Checked
ObjectChecked
ObjectCaption
ObjectChecked
value
ObjectChecked
ObjectCaption
string
String
Raised Dot
Lowered Dot
Caption
Caption 3
Radio Button Groups
to handle buttonUp
-- Init: setup local variables
set checkObject to target
set syslockscreen to true
local ObjList,CurrentObj
set ObjList to objects of self
-- Set all of the radio buttons to unchecked
do
pop ObjList into CurrentObj
set Objectchecked of CurrentObj to false
until ObjList is Null
-- Set the RadioButton that was pressed to
-- checked
set Objectchecked of checkObject to true
set syslockscreen to false
end buttonUp
Example Script for
Radio Button Groups
3D Round Check Box
& " " &
buttonUp
buttonUp
send
to parent of self
Raised Dot
Lowered Dot
Caption
Caption
Round Check Box
& " " &
buttonUp
buttonUp
send
to parent of self
Lowered Dot
Caption
Caption
Name: Round Check Box
Objects: group "Lowered Dot", ellipse "Dot", Field "Caption"
Action: On buttonUp this object toggles the visiblility of the ellipse "Dot" and sends the text of field caption as a message along with the current visibility status of ellipse "Dot" to this objects parent.
Name: 3D Round Check Box
Objects: group "Raised Dot", group "Lowered Dot", Field "Caption"
Action: On buttonUp this object toggles the visiblility of the group "Lowered Dot" and sends the text of field caption as a message along with the current visibility status of group "Lowered Dot" to this objects parent.